home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / fortran / yaf77-1.1 / yaf77-1 / yaf77 / F77ext / fdate.c < prev    next >
Encoding:
C/C++ Source or Header  |  1996-01-15  |  138 b   |  13 lines
  1. #include<time.h>
  2. void fdate_(utime)
  3. char utime[24];
  4. {
  5. int i;
  6. time_t t;
  7. t=time (NULL);
  8. for (i=0; i<24; i++)
  9.  utime[i]= *(ctime(&t)+i);
  10. }
  11.  
  12.  
  13.